home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PRIMES.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  384b  |  19 lines
  1. 120 REM INTERFACE AGE PRIME NUMBER BENCHMARK
  2. 130 PRINT "STARTING:"
  3. 140 FOR N = 1 TO 1000
  4. 150 FOR K = 2 TO 500
  5. 160 LET M = N/K
  6. 170 LET L = INT(M)
  7. 180 IF L = 0 THEN 230
  8. 190 IF L = 1 THEN 220
  9. 200 IF M > L THEN 220
  10. 210 IF M = L THEN 240
  11. 220 NEXT K
  12. 230 PRINT N;
  13. 240 NEXT N
  14. 250 PRINT "FINISHED"
  15. 0 IF L = 1 THEN 220
  16. 200 IF M > L THEN 220
  17. 210 IF M = L THEN 240
  18. 220 NEXT K
  19. 2